(compilation-handle-exit): Do right thing

if (car status) doesn't end in a newline.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2e51b100684f5b9ef4cf80af7c0acbdc9326db01..a426ea647570d0f0aa2549235e8aee14430c13d4 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1015,9 +1015,10 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
     ;; later on.
     (goto-char omax)
     (insert ?\n mode-name " " (car status))
-    (forward-char -1)
+    (if (bolp)
+       (forward-char -1))
     (insert " at " (substring (current-time-string) 0 19))
-    (forward-char 1)
+    (goto-char (point-max))
     (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)